Omar Abdelhamid
September 10, 2018
fuelCons <- fuelCons %>%
  filter(combined_imperial < 100, transmission_type != "") %>%
  mutate(transmission_typeX = as.factor(ifelse(transmission_type == 'Manual',
                                               'Manual', 'Automatic'))) %>%
  mutate(particulates_emissions = as.numeric(as.character(particulates_emissions)))
histMPG <- qplot(combined_imperial,
                 data = fuelCons,
                 binwidth = 3,
                 xlab = "Average MPG of urban and extra urban tests",
                 ylab = "Count of cars")

